home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / Xor < prev   
Encoding:
Text File  |  1985-10-03  |  299 b   |  12 lines  |  [TEXT/TRUE]
  1. ! Program to illustrate use of "xor".
  2. !
  3. SET window 0, 10, 0, 10
  4. BOX AREA 0, 1.5, 0, 1.5           ! Draw a rectangle
  5. BOX KEEP 0, 1.5, 0, 1.5 in box$   ! and keep it
  6. BOX CLEAR 0, 1.5, 0, 1.5
  7.  
  8. FOR i = 1 to 8                    ! Show overlapping boxes
  9.     BOX SHOW box$ at i, i using "xor"
  10. NEXT i
  11. END
  12.